


FLOAT 


BHATHO 


PAGE .1,2 


LOG 


Q CTj STi 

0 25B 
02!5C 
0 25D 


OBJ CODE M STMT SOURCE STATEMENT ASM L'. Q 


525 


FLOAT 





526 

1 V 

T f 


?yryrW?; 

r ^ ^ t 

■ r ? ^ y ^ 


> T y ^ > y 7 r > y r 

527 

T 






528 

f 

FLOAT CONVERTS 16 

BIT 2 

'S COMPLEMENT INTEGER 

52? 

t 

TO 

FLOATING 

POINT 

FORMAT 


530 


, (FLOAT! 

ASSUMES 

INPUT 

IS IN HL 

) 

531 

t 

T 

'■ ^ W"' 





532 

z 

INPUT ? 

IX PTS 

TO .16 

BIT 2' S 

COMP INTEGER 

533 


OUTPUT? 

IK PTS,. 

TO FL 

GATING PT 

NUMBER 

534 

I 

ERRORS? 

NONE 





535 ? ALGORITHM: CONVERT TO SIGN MAGNITUDE AND NORMALIZE 




; REGISTERS? riL IS 

!6 BIT ACCUM 


537 



SIGN 


538 

r 

C IS 

EXPONENT 


539 

y 




540 

^ 1 -» « » ♦ « 

? ? ? ¥ y ? y 

ryyrryyjyyyyyy? 

yy>y?yy?y?y?y?yyyyyyyy? 


54 1. 

r 





; TEST 

INPUT 




§\ J :L ' 



DD6ED0 

544 

FLOAT 

LP L,(IK) 

; LOAD 16 BIT INTEGER 

00660,1 

545 


LD H,(IX+!.^ 







7C 


FLOAT! 

LD A,H 

; TEST FOR ZERO 

B5 

547 


OR L 


f 





CA8504 

R 546 


JP z,zef:o 

? INPUT WAS ZERO 


549 ! 

550 

551 


CONVERT TO SIGN MAGNITUDE, SIGN IN A 








0260 

7C 

Cf.C ^ 

i,.. 

LD 

A, H 

0261 

E680 

a 33 

AND 

80 H 

0 263 

'Z80i^ ■ 

554 

VR; 

Z.FllO 

0265 

EB 

555 

EX . 

OErHL 

0 266 

2.10000 

! 

556 

LD 

HI., ,0 

0269 

E052 ' 

557 

SBC 

HL . OE 

.v,;' ..l>K 


558 





559 

? NORMALIZE 




560 - 

■n-'r % ■■■ . . 

y 


026B 

0E9O r 

561 

FLIO LD 

C.16+80H 

026D 

FA7702- R 

562 

' ,JP 

M. FL3Q 

0 270 

A7 

563 

AND 

mdgmmmm 

02.7.1. 

OD 

564 

FL2Q DEC 

BBBililSi- 

0 272 

EP6A 

565 

ADC 

HLrHL 

0274 

F27i;02 R 

566 

•JP 









567 





5 68 

; STORE RESULT> ' 






0 277 

CBBi|. 

570 

FL30 RES 

7rH 

0279 

B4 

571 

OR 

“ H 

0 27 A 

: DD7700 

572 

l-D 


0270 

0D7501' 

573 

LD 


0280 

00.360200 

574 

LD 

<IX+2)rO 

0284 

007103 

575 

LD 

<IX+3)rC 

0287 

C9 

576 

RET 



; GET SIGN BIT 

; POSITIVE 

? NEGATE 


J INITIAL EXPONENT 
? ALREADY NORHALIZED 
; CLEAR CY 
f DEC EKP 
; SHIFT LEFT 
? NOT NORMALIZED YET 


; CLEAR IMPLIED 1 
? ADD SIGN 








BRK 


OBJ CODE H STHT 


BMATHQ 

SOURCE STATEMENT 
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ASM 5.0 


577 *H BRK 

578 ; 

579 ; BRK SEPARATES INTEGER AND FRACTION PARTS 

580 ? 

581 ; 

582 ? 

583 ; 

584 ; 

58,5 ,, 

588 : 

587 ? 


INPUT! IK PTS TO K 

OUTPUT: IX PTS TO FRACTION 0 <= K < 1 

HL IS LOW ORDER 16 BITS OF 2'S COMP FIX32(K) 
CY IS SET IF INPUT > 2+24 
ALGORITHM: USES 32 BIT FIX AND FLOAT, AND FL PT SUB 
ALWAYS RETURNS VALID FRACTION PART 


0 288 

CD8503 R 

588 BRK 

CALL 


y 

SAVE COPY OF X 

0288 

C048Q3 R 

589 

CALL 

FIX32' ■ 

r 

GET 32 BIT INTEGER 

028E 

3810 

590 

JR 

C:,BRK20 

? 

X > 2+24 

0290 

D9 

591 

EXX 


f 

ALT BANK 

0291 


592 . 

BIT 

7,B 



0293 

09/^,' , 

593 ' ^ - 

EXX 


9 

9 

MAIN BANK 

0294 

E5 


.PMf H 

HL 

■ t 

gAVE HI. AND FLAGS 

0295 



PUSH 




0296 

CDFB02 R 

596 

CALL 

FL032 

r 

CONVERT TO FLOATING 

0299 

‘FD21CF04 R 

597 

LD 

IY,TEMPI 



029D 

CDOOOO R 

598 

CALL 

RSUB 

1 

f 

CALC K - INT(X) 

n^an 

F.l 

599 

POP 

AF 

Z 

ppc;TOi;*F pFHR 

02Ai 

El 

600 

POP 

HL 



02A2 

./ 2807 ' 

601 

JR 

z,brkig: 

r 

POSITIVE SIGN 

02A4 

EB 

602 

EX 

DE,HL 




< 






n2A5 

210000 

603 

LD 

HL,0 








AND A 


0 2A8 

A7 

604 

0ZA9 

ED52- 

605 

0 7AB 

A7 - . 

606 

Q2AC 

C9 

607 

0?AD 

CDa504 

* 

R 60 & 

02BQ 


609 

Q2B.t 

C9‘ 

6.1 0 


sec HI. ,0E 
BRK30 AND A 
.RET ■ 

BRK20 CALL ZERO 
SCF 
RET 


? NEGATE Hi.. 

? CLEAR CY 

; FORCE ZERO FRACTION 
? SET CY 




CP 


BMATHQ 
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LOC OBJ CODE M STMT SOURCE STATEMENT 




611 

*H CP 





612 

7 





613 

? COMPARE ROUTINE 



6 14 

J RETURNS 

CY SET IF 



615 

? RETURNS 

Z SET IF 



61^4 




Q2B2 

DD7E00 

617 

CP 

l.D 

A,(IX) 

02B5 

ESSO 

618 


AND 

8 OH 

0 2B7 

2021 

619 


JR 

NZrCPlO 

02B9 

FDCB007E 

620 


BIT 

7,(lY) 

0 2BD 

CO 

621 


RET 

NZ. 

QF'BE 

DD7E0T 

622 


LD 

A.(IK+3) 

0 2Ci 

FDBE03 

623 


CP 

<lY+3) 

02C4 

CO 

624 


RET 

NZ 

0 2C5 

DD7E0D 

625 


LD 

A.{IX) 

Q2C8 

FDBEOO 

626 


CP 

(IY) 

0 2CB 

CO 

627 


RET 

NZ 

Q2CC 

DD7E01 

628 



A, CIK + i) 

02C;f 

FPBEOl 

629 


CP 

(lY+i) 

0202 

CO 

630 


RET 

NZ 

D2D3 

DD7E02 

631 


LD 

A, (IX+2) 

Q2D4 

FDBE02 



CP 

(IY+2) 

02D9 

C9 

633 


RET 


020 A 

FDAEOQ 

634 

CP IQ 

XOR 

(lY) 

Q2DD 

17 . 

635 


RLA 


02DE 

08 

636 


RET 

C ■ 

02DF 

FD7E03 

637 


LD 

A, (IY+3) 


ASM 5.0 


< Y 
=: Y 

; GET MS BYTE OF X 

;K IS NEGATIVE 

r Y IS NEGATIVE 
? TEST EXP'S 

; TEST MS BYTE 


; TEST SIGN AND SET HZ 
; PUT SIGN IN CY 
J SIGNS DIFFERENT 




i' 


02E2 

D08E03 

638 

CP .. 

{IX+3) 

0 2E5 

CO 

639 

RET 

NZ' 

02e6 

F07E0O . - 

640 

LD 

(I¥) 

02E9 

DD^OO 

64 i 

CP 

(IK) 

Q2EC 

CO 

642 

RET 

NZ 

02ED 

FD7EOI 

643 

LD 

A,(IY+i ) 

02F0 

DOBEQl 

644 

CP 

(IX+1) 

02F3 

CO 

645 

RET 

NZ 

02F4 

FD7E02 

646 

1.0 

Ar(IY+2) 

02F7 

DDBE02 

647 

CP 

(IX+2) 

02FA 

C9 

648 

RET 




F 1.032 


BHATHO 


PAGE 15 


LOO OBJ CODE M STMT SOURCE STATEMENT ASM 5.0 

649 FL032 

650 ; 

651 ; FL032 CONVERTS 32 BIT INTEGER TO FLOATING POINT 

652 ; BY NORMALIZING AND ROUNDING TO 24 BITS 




653 

; ENTRY TO 

FL0321 WITH DE ZERO AVOIDS ROUNDING 



654 

; INPUT? 

H'L'HL IS 32 BIT INTEGER 



655 

r 

DE IS ROUNDING VALUE FOR FL0321 



656 

? 

BIT 7 IS SIGN 



657 

; OUTPUT: 

IX POINTS TO FL PT NUMBER 



658 

. T 




659 





660 

TEST FOR Z 

ERO, 



661 



0 2FB 

118000 

662 . 

F1032 LD 

DE,80H ; ROUNDING BIT 

Q2FE 

7D 

663 

FL0321 LD 

Art. ? OR ALL 4 BYTES 

02FF 

B4 

664 

OR 


0300 

09 _ 

665 

EKX 

? ALT BANK 

0 301 

B5 

666 

OR 


0302 

B4 

667 

OR 


0 303 

CA85Q4 

R 668 

JP 

ZrZERO ; INPUT IS ZERO 



669 

. 




670 

; NORMALIZE 

ACCUMr COUNT EKP IN C' 

0 306 

DEAD . 

6 / X 

672 

FNORM LD 

CrOAOH ; INIT EXP TO +32 

0308 

CB7C ‘ 

673 

BIT 

7rH 

0 30A 

200^9 

674 

JR 

NZrFROUND ; ALREADY NORMALIZED 

030C 

00 • 

675 

FNORL DEC 

C J DEC EXP 




Q 30D 

D9 

676 


EKX 


; MAIN BANK 

o3oe 

^■"29' 

677 


ADO 

HLrHL 

SHIFT ACC LEFT 

030F 

D.9 . 

678 


EKX 


; ALT BANK 

031.0 

E06A 

679 


ADC 

HLrHL 


0312 

F20C03 

R 680 


J P 

P:FNORL 

; NOT NORMALIZED YET 



681 

v I 






682 

; ROUND 

FRACTION TO 24 

BITS 



683 

f NOTE 

! 5 ROUNDING OVERFLOW IMPLIES FRACTION 



684 

f , ■ 

I s 

A POWER OF 

2, SO HIGHEST BIT NEED 



685 


NOT 

• BE PUT IN 

BEFORE STORINJI^.-.-.^ 



686 





0315 

D9 

687 w 

^.OUND 

EXX 


? MAIN BANK 

0316 

19 

688 


ADD 

HL,DE 

ADO ROUNDING BIT 

0 317 

D9- 

689 


EXX 


? ALT BANK 

0318 

IlOQOO 

690 


■LD 

OErO 


0 31B 

, ED5A 

691 


ADC 

HL,DE 


0310 

3004 

692 


OR 

NC'r FSTO 

f NO OVERFLOy 

0 31F 

oc. 

693 


INC 

C 

; INC EXP 

0320 


R 694 


JP 

Z.^OVERB 

1 OVERFLOW 



695 

f 






696 

? S TORE 

RESULTS (ENTER 

Ii:,.AL;T|i|ANK) 



697 

■» • 




0 323 

007103 

. 698 

FSTO 

LD 

(IX+3 ),C 

? BINARY EXPONENT 

0326 


699 


LD 

ArH 

; PUT IN SIGN BIT 








0327 

E67F 

. 700 


AND 

7FH 


0329 

BO 

701 


OR 

B 


032A 

007700 

702 


LD 

(IK),A 

; MSBYTE 

0320 

007501 

703 


LD 

(ix+i) a. 

1 2ND BYTE 

0 330 

f 

D9 

704 


EXX 

. « 

; MAIN BANK 

0331 

^007402 ^ 

705 


LO 

(XX+2) a-i 

1 2RD BYTE 




0 334 


C9 


706 


RET 




BMATHQ 


FLO 32 


L,OC 

OBJ CODE M 

STMT 

SOURCE STATEHEMT 



707 





708 

? LOAD FRACT 

ION PART 



709 

! 


0335 

2600 

710 

FLD LD 

H,0 

0337 

0D6E00 

7 11 

LD 

L, (IX) 

0 33A 

7D 

712 

LD 

ArL 

033B 

E6ao 

713 

AND 

80H 

033D 

47 • 

714 

LD 

B, A 

033E 

CBFp 

715 


7 rl. 

0 340 

D9. 

716 

EKX 


0341 

006 ^<j 0 I 

7 17 

LD 

H r ( I X + 1 ) 

0344 

DD6E02 

71 a 

LD 

L,(IX+2) 

0347 

C9, 

719 

RET 



PAGE 14 
A S M 5,0 

CALLED IN ALT BANK) 

: H'L’HL IS ACCUM 

; GET SIGN BIT 

; PUT IN B’ 

5 RESTORE IMPLIED 1 
f MAIN BANK 




FIX32 


BMATHO 
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LOG 

OBJ CODE 

M STHT 

SOURCE STATEMENT 

ASH 5.Q 



720 

♦H FIX32 





721 

f 





722 

? FIK32 CONVERTS FL 

PT NUMBER TO 32 BIT INTEGER 



723 

} INPUT! 

IX POINTS TO FL PT NUMBER 



724 

; OUTPUT; 

H '' HL 

- 32 BIT INTEGER 



725 

f 

B’ 

- BIT 7 IS SIGN BIT 



726 

1 

A 

-r ZERO IF INPUT WAS INTEGER 



727 

1 

CY 

- SET IF INPUT >= 2+32 



728 




0348 

AF 

729 

FIX32 KOR 

A 

f TEST FOR ZERO 

0349 

0DBE03 

T 

C256Q3 
> * 

730 

CP 

(1X4-3) 


Q34C 

R 731 

JP 

NZrFXA 

2ER0 ^ 

034F 

67 

732 

LD 

HrA 

.! CLEAR H'L' 

0350 

6F 

733 

LD 

L,A 


0351 

4? 

734 

LD 

8, A 

,;T,.jgLEAR ; SIGN ^ , 

0 352 

D9 

735 

EXK 


J MAIN BANK 

0353 

67 

736 

L 0 

HrA 

! CLEAR HL 

0 354 

6F 

737 

LD 

Lr A 


0355 

C9 

738 

RET 


I;-;.-; 



739 

; 





7 40 

; CALCULATE 

SHIFT COUNT ^ 



741 




0 356 

CD3503 

R 742 

FXA CALL 

FLD 

; LOAD FRACTION TO L ’ HL 

0359 

3E98 

743 

LD 

A,98H 

? CALC SHIFT COUNT 

035B 

DD9603 

744 

SUB 

(IX-»-3) 


035E 

08 

7 45 

RET 

c 

; INPUT WAS TOO BIG 

035F 

cs 

746 

RET 

Z 

; SHIFT COUNT IS ZERO 





0360 

0618 

747 

LO 

8 r 24 

r HAX COUNT IS 24 


4. 





0 362 

B8 

748 

CP 

B ■ 


0363 

3001 

749 

JR 

NCrFXl 

J COUNT >== 2 4 

0365 

47 

750 

LO 

B, A 

; PUT COUNT IN B 

0366 

- : 

AF 

751 

FXl XOR 

A 

f CLEAR A 



752 






753 

; SHIFT LOOP: 





754 

; 



0 367 


755 

FXL EXX 


J ALT BANK 

0368 

CB3C 


SRL 

H 

? SHIFT ACCUM RIGHT 

0 36A 

CBID 

757 

RR 

L 


036C 

09 . 

758 

exx 


1 MAIN BANK 

0360 

CBIC 

759 

RR 

H 


036F 

CBIO 

760 


L 


0 371 

CEOO r 

761 

ADC 

A, 0 

; COUNT I’S SHFTO OUT 

0373 



liSiilii ojNZ: 

FXL 

■ ®iiOU®i|NOT: OONE; 



763 






Ibh 

5 USE CEILING 

1 FUNCTION 

FOR NEGATIVE NUMBERS 



765 




0 375 

cs 

766 

RET 

7 

1 NO i’S SHIFTED OUT 

0376 

09 . 

767 

EXX 


: ALT BANK 

0377 

CB7S 

768 

BIT 

7,B 


0379 

09 

769 

exx 


? MAIN BANK 

037A 

CS 

770 

RET 

£\- 

; POSITIVE SIGN 

0378 

110,100 

771 

LO 

OE, 1 

1 INCREMENT ACCUM 

Q37E 

19 

772 

ADD 

HL,DE 


037F 

OQ 

/ / -5 

RET 

NC 

1 NO CY FROM INCR 

0380 

09 

71 

EXX 


5 ALT BANK 

0381 

23 • 

775 

INC 

HI. 

ADD CY 

0 382 

09 

776 

EXX 


? MAIN BANK 



0383 


777 


AND A 


? TURN OFF CY 


A 7 



FIX32 



BMATHO 

PAGE 18 

LOC 

OBJ 

CODE H STMT 

SOURCE STATEMENT 

ASM 5.0 

0384 


77f 

RET 






i 



UTIL IT 

TPP. 




BMATHO 




PAGE 

m 

LOG 

OBJ CODE 

M 

STMT 

SOURCE 

STATEMENT 



ASM 

m 




779 

♦H UTILITIES 





m 




780 

J. 










781 

?. UTILITIES 





m 




782 

f 






m 

0385 

.1.iCFD4 

R 

783 

ST 01 

LD 

DE,TEMPI 

? 

DEST 

IS TEMPI 


- 0388 

C.394Q3 

R 

784 

-,,, ' 

JP 

STO 




• 

0 38B 

11D304 

R 

785 

ST 02 

LD 

DE,TEMP2 

. . t 

DEST 

IS TEMP2 


038E 

C39403 

R 

786 


JP 

STO 





0391 . 

11D704 

R 

787 

ST 03 

LD 

DErTEMP3 

....... f.: 

DEST 

IS TEMPS 

• 

0394 

ODE 5 


788 

ifilllL:- 

PUSH 

IK 

9 

SOURCE IS ACCUH 

• 

0396 

Ei 

) 

i0iQ400 


789 


POP 

HI. 





039? 


790, 

MOV 

LO 



CO UN' 

r is , 4 ^ ■ 

• 

039A 

ebeo 


79i; 


LOIR 






039C 

G9 


792 


RET 






0 39D 

DDES 


793 

LD ,, 

PUSH 

IK 

1 

DEST 

IS ACCUH 

• 

039F 

01 


794 


POP 

DE 





0 3AO 

039703 

R 

795 


vJP 

MOV 










DOLEAN 

BMATHO 

PAGE 20 

LOC OBJ CODE M STMT 

SOURCE STATEMENT 

ASM 5.0 

796 

.*H BOOLEAN 




BOOLEAN 


BMATHO 


LOC 

OBJ CODE 

H 

STMT 

SOURCE S 

TATEMENT 




797 

m BOOLEAN 





798 

T 






799 

1 LOGIC 

AL OPERATORS 




800 




0 3 A3 

DD7E00 


801 

I OR 

LD 

A,(IK) 

Q3A6 

00B601 


802 


OR 

(IK+i) 

03 A9 

FDB600 


803 


OR 

(lY) 

03 AC 

FDB60i 


804 


OR 

( IY-+-1 ) 

0 3AF 

C33004 

R 

805 


JP 

INEl 

03B2 

007E00 


806 

lANO 

LD 

Ar(IK) 

Q3B5 

DDB601 


807 


OR 

(IX+1) 

Q3B8 

CA7CQ4 

R 

808 


JP 

ZrIZERO 

03BB 

FD7E00 


809 


LD 

A,(lY) 

03 BE 

FDe6Ql. 


8 to 


OR 

(lY+l) 

0 3Ci 

C33004 

R 

8ii 


JP 

INEl 

03C:4.. 

DD7EQQ 


812 

I NOT 

LD 

AfilK) 

03C:7 

DDB601. 


813 


OR 

(IK+1 ) 

Q3CA 

1850 


814 


JK 


03CC 

DD7E03 



OR 

LD 

A,(IK+3) 

03CF 

FDB603 


816 


OR 

(IY+3) 

03D2 

C35E04 

R 

817 


JP 

NEl 

0305 

DD7E03 


818 

AND 

LO 

Ar(IK+3) 

0308 

A7 


819 


AND 

A 

Q3D9 

CA8504 

R 

820 


JP 

Z.ZERO 

03 DC 

FD7E03 


821 


LO 

A,{IY+3) 

03 OF 

A 7 


822 


AND 

A 

0 3EO 

187C 


•823 


JR 

NEl 


PAGE 21 
ASH 5.Q 









03E2 

D07E03 


824 

NOT 

LD 

A ?(IX+3) 

Q3E5 

A7 


825 


AND 

A 

03E6 

186F 


826 



KQ Icfe c-.' ' 




827 

■■■ .'t, 






8 28 

? REl. AT TONAL 

OPERATOR 




829 

■ r 



03E8 

CDOOOO 

X 

830 

SGT 

CALL 

SCR 

03E8 

1.81C 


831 


OR 

IQTl 

0 3 E D 

CDOOOO 

X 

832 

SI E 

CALL 

SCP 

03FQ 

1820 


833 


JR 

ILEi 

0 3F2 

CDOOOO 

X 

834 

SLT 

CALL 

SCP 

03F5 

1824 


835 


JR 

ILTl 

03F7 

CDOOOO 

K 

836 

SGE 

CALL 

SCP 

Q3FA 

1826 


837 


JR 

I Q E 3- 

0 3FC 

CDOOOO 

K 

838 

SEQ 

CALL 

SCP 

03FF 

1828 


839 


JR 

lEQl 

0 401 

CDOOOO 

K 

840 

SNE 

CALL 

SCP 

0404 

i82A 


841 


JR 

INE 1 

0406 

CDOOOO 

K 

842 

IGT 

CALL 

TCP 

0409 

2871 


843 

IGTl 

JR 

Z r TZERO 

0 40B 

386F 


844 


, : . . JR ,: i,g 

C,I7PRO 

Q40D 



845 



TONE 

0 4 OF 

CDOOOO 

>( 

846 

IL£ 

CALi 

TCP 

04J.2 

284E 


847 

ILEl 

JR 

Z, TONE 

0 414 

384C 


848 


JR 

Cr TONE 

041.6 

18 6 4 


849 


JR 

XZERO 

0418 

CDOOOO 

V 

850 

ILT 

CALL 

TCP 

041.B 

3845 


851 

ILTl 

JR 

C r TONE 

0 4.1.D 

1850 


852 


JR 

I ZERO 

04 IF 

COOOOn 

K 

853 


CALL 




854 IGEl 


C,IZERO 


JR 


858 



BOOLE 

iAN 



BMATHQ 


L.OC: 

OB si CODE h 

STMT 

SOURCE 

STATEMENT 

0424 

183C 

855 


JR 

lONE 

0 426 

CPOOOO K 

856 

lEQ 

CALL 

ICP 

0429 

2.837 

857 

TPD*f 


Z. TONE 

042B 

i84F 

858 


JR 

IZERO 

0420 

COOQQO >( 

859 

INE 

CALL 

ICP 

0 430 

284A 

860 

INEl 

JR 

Z, IZERO 

0432 

182E 

861 


JR 

lONE 

0 434 

CDB202 R 

862 

GT 

CALL. 

CP 

0437 


863 

G T i 

■Jfi 

2rZERO 

0439 

384A 

864 


JR 

CrZERO 

Q43B 

1S2E 

365 


JR 

ONE 

0 4 3D 

CDB702 R 

866 

LE 

CALL 

CP 

0440 

iiliiiiiiiOiii 

867 

LEi 

JR 

ZrONE 

0 442 

S A 2 7 

866 


•JR 

C j ONE 

1 j 444 


869 


JR 

ZERO 

0 4 4 6 

r:DB202 R 

870 

LT 

CALL 

: 

*3449 

3820 

871 

LTI 

'JR 

. C ? ON E 

0 44B 


872 


JR 

ZERO 

0440 

CDB202 R 

873 

GE 

CALL 

CP 

0 450 

3833 

87 4 

GFi 

vJR 

C r 7ER0 

0452 

1817 

875 


JR 

ONE 

0 454 

CDB202 R 

876 

EC4 

CALL 

CP 

0457 

2812 

^7 7 

EQ1, 

\ J R 

ZrONE 

0459 

182A 

678 


JR 

ZERO 

045B 

006202 R 

879 

N6 

CALL 

CP 

0 45E 

2825 

880 

NE.t 

vJR 

Z .ZERO 

0460 

1809 

883. 


JR 

ONE 
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CONSTANT FUNCTIONS 


BMATHO 


LOC OBO CODE M STMT SOURCE STATEMENT 





882 


- 

883 



884 



885 

0 462 

DD36000i 

886 

0466 

00360100 

887 

046A 

C9 

888 

046B 

DD360000 

889 

046F 

DD360100 

890 

0473 

0D36Q200 

891 

0 4 77 

DD36038) 

892 

0478 

C9 

893 



894 



895 



896 

0 47C 

DD360Q00 

897 

0480 

00360100 

898 

0 484 

C9 

899 

0485 

0D36QQ0Q 

900 

0 489 

DD360J 00 

901 

0480 

D0360200 

902 

0491 

DD360300 

903 

0495 

C9 

90 4 



905 



906 



907 

0496 

DDCBDOl6 

908 


*H CONSTANT FUNCTIONS 

J PRODUCE UNITY RESULT 

■T--: ' ■' ' 

I ONE LD <IK)5l 

LD (IK+i)rQ 
RET 


ONE LD (IK),0 




LD 

(IK) > 0 


1.0 

( ,IK+J. ) r 0 


RET 



LO 

<IK)rQ 


LD 

( TK + .i ) , 0 


LO 

■ (IX+2)rO 


LD 

. (IK+3),0 


RET 



? PRODUCE INFINITE RESULT 


INF RL. (IK) 
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049A 


F)D3600FE 


909 


0 49E 

DDCBOOIE 

910 


Q4A2 

0D36QiFF . 

913, 


0 4A6 

DD3602FF 

912 


Q4AA 

003603FF 

913 


0 4AE 

k9 

914 




915 

' IliiillW'V . 



916 

f FLAG 



917 


0 4AF 

D9 

918 

OVERB 

04B0 

DD700n 

919 


0 4B3 

210000 X 

920 

OVER 

Q4B6 

CBFA 

921 


0 4B8 

C39604 F: 

922 




923 




924 

? FLAG 



925 


04BB, 

21D000 X 

926 

UNDER 

04B6 

C8EE’ 

927 


0 4 CO 

c3a504 R 

928 




1.0 (IK)rQFEH 

RR (IX) ; REPLACE SICSN 

LD (IK+i)rOFFH 

LD (IK+2)tOFFH 

LD (IX+3)rOFFH 

RET 

OVERFLOW ERROR, STORE INFINITY 

EXK ; ALT BANK 

LD (IX),B ? SET SIGN BIT 

LD HL,ERROR 

SET 6,(HL) ? FLAG OVERFLOW 

JP INF 

UNDERFLOW ERROR, STORE ZERO 

LD HL,ERROR 

SET 5,(HL) ? Fi..AG UNDERFLOW 

vfP ZERO 








CONS 

TANTS AND WORK 

AREA 

S' 

BMATHO 

LOG 

OBU CODE M 

STMT 

SOURCE 

STATEMENT 



929 

*H CON 

STANTS ANO WC 

0 4C3 

0000 

930 

C1 

DEFW 0 

Q4C5 

0081 

931 


OEFW 8J.00H 

04C7 

0000 

932 

C...5 

DEFW 0 

a4C9 

0080 

9-13 


DEFW 80DQH 

04C;B 

0000 

934 

SEED 

DEFW 0 






04C0 

0000 

935 


DEFW 0 

0 4C.F 


916 

TFHPl 

DEFS 4 

0403 


937 

TEMP2 

DEFS 4 

0407 


938 

TEMP3 

DEFS 4 



939 

1 




940 

1 REFERENCES 



941 





942 


EXTERNAL 



943 


GLOBAL 



944 


GLOBAL 



945 


GLOBAL 



946 


GLOBAL 



947 





948 


GLOBAL 



949 


Gi-OB AL 



950 


Gl. OBAl, 





Gi-OB 
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ASM 5.0 

AREAS 
; i , 0 

? 0.5 


ERROR,ICPzSCP 

ADO,SUB,RSU8,MULT,OIVI,REC 
FIX,FIKA,FLOAT,BRK, FIK32,FL032, FL.0321. 
CP,STO1r ST02,ST03,TEMPI,TEMP2 
LD,FLD:;^:;F^^^ , 

lll|||ioER^r:ZERo.:j^;i^^E^^-^: 

GT,L T,GE,LE,EQ,NE,AND, OR , NOT 

IGT,ILT,IGE,ILE,lEQ,INE,XAND,lOR,INOT 

SGT , SLT , SGE , Si. E , SEQ , SNE 






